The map below shows the percent of homes owner-occupied based on U.S. Census American Community Survey data for 2012-2016.
mid.hoods <- subset(hmt, hmt.tier %in% c("lower middle", "upper middle"))
bins <- c(seq(0, 1, 0.2))
pal <- colorBin("YlOrRd", domain = mid.hoods$Percent_Owner.2016, bins = bins)
leaflet() %>%
setView(lng = -76.6, lat = 39.3, zoom = 11) %>%
addProviderTiles(providers$Stamen.TonerLite) %>%
addPolygons(data = mid.hoods,
fillColor = ~pal(mid.hoods$Percent_Owner.2016),
color = iteam.colors[2],
weight = 1,
fillOpacity = .6,
label = ~as.character(round(mid.hoods$Percent_Owner.2016, 2))) %>%
addPolygons(data = hoods,
weight = 2,
color = "black",
opacity = 0.5,
fillOpacity = 0,
label = ~hoods$label) %>%
addLegend(data = mid.hoods,
position = "bottomright",
pal = pal,
values = ~mid.hoods$Percent_Owner.2016,
title = "Percent Owner Occupied")
LS0tDQp0aXRsZTogIkhvbWVvd25lcnNoaXAgUmF0ZXMgaW4gTWlkZGxlIE5laWdoYm9yaG9vZHMiDQphdXRob3I6ICJKdXN0aW4gRWxzemFzeiwgTWF5b3IncyBPZmZpY2Ugb2YgSW5ub3ZhdGlvbiINCmVtYWlsOiAianVzdGluLmVsc3phc3pAYmFsdGltb3JlY2l0eS5nb3YiDQpkYXRlOiAiVGh1cnNkYXksIEZlYnJ1YXJ5IDI4LCAyMDE5Ig0Kb3V0cHV0Og0KICBodG1sX25vdGVib29rOg0KICAgIGNvZGVfZm9sZGluZzogaGlkZQ0KICAgIGZpZ19oZWlnaHQ6IDUNCiAgICBmaWdfd2lkdGg6IDEwDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZGVwdGg6IDINCi0tLQ0KDQpUaGUgbWFwIGJlbG93IHNob3dzIHRoZSBwZXJjZW50IG9mIGhvbWVzIG93bmVyLW9jY3VwaWVkIGJhc2VkIG9uIFUuUy4gQ2Vuc3VzIEFtZXJpY2FuIENvbW11bml0eSBTdXJ2ZXkgZGF0YSBmb3IgMjAxMi0yMDE2Lg0KDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlID0gRkFMU0UsIGVjaG8gPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFLCBjYWNoZSA9IFRSVUV9DQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IEZBTFNFLCB3YXJuaW5nID0gRiwgbWVzc2FnZSA9IEYsIGluY2x1ZGUgPSBULA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlnLndpZHRoID0gMTAsIGZpZy5oZWlnaHQgPSA1KQ0KYGBgDQogDQpgYGB7ciBpbmNsdWRlID0gRn0NCnNvdXJjZSgiLi4vc3JjLzAwX2luaXRpYWxpemUuUiIpDQpsaWJyYXJ5KGxlYWZsZXQpDQpobXQgPC0gbG9hZF9ibG9ja19ncm91cF9kYXRhKGxvYWQuY2FjaGUgPSBUKQ0KaG9vZHMgPC0gZ2V0X25laWdoYm9yaG9vZF9ib3VuZGFyaWVzKCkNCmBgYA0KDQpgYGB7ciBvdXQud2lkdGg9IjEwMCUiLCBmaWcud2lkdGg9OH0NCm1pZC5ob29kcyA8LSBzdWJzZXQoaG10LCBobXQudGllciAlaW4lIGMoImxvd2VyIG1pZGRsZSIsICJ1cHBlciBtaWRkbGUiKSkNCg0KYmlucyA8LSBjKHNlcSgwLCAxLCAwLjIpKQ0KcGFsIDwtIGNvbG9yQmluKCJZbE9yUmQiLCBkb21haW4gPSBtaWQuaG9vZHMkUGVyY2VudF9Pd25lci4yMDE2LCBiaW5zID0gYmlucykNCg0KbGVhZmxldCgpICU+JQ0KICBzZXRWaWV3KGxuZyA9IC03Ni42LCBsYXQgPSAzOS4zLCB6b29tID0gMTEpICU+JQ0KICBhZGRQcm92aWRlclRpbGVzKHByb3ZpZGVycyRTdGFtZW4uVG9uZXJMaXRlKSAlPiUgDQogIGFkZFBvbHlnb25zKGRhdGEgPSBtaWQuaG9vZHMsIA0KICAgICAgICAgICAgICBmaWxsQ29sb3IgPSB+cGFsKG1pZC5ob29kcyRQZXJjZW50X093bmVyLjIwMTYpLCANCiAgICAgICAgICAgICAgY29sb3IgPSBpdGVhbS5jb2xvcnNbMl0sIA0KICAgICAgICAgICAgICB3ZWlnaHQgPSAxLCANCiAgICAgICAgICAgICAgZmlsbE9wYWNpdHkgPSAuNiwNCiAgICAgICAgICAgICAgbGFiZWwgPSB+YXMuY2hhcmFjdGVyKHJvdW5kKG1pZC5ob29kcyRQZXJjZW50X093bmVyLjIwMTYsIDIpKSkgJT4lDQogIGFkZFBvbHlnb25zKGRhdGEgPSBob29kcywgDQogICAgICAgICAgICAgIHdlaWdodCA9IDIsIA0KICAgICAgICAgICAgICBjb2xvciA9ICJibGFjayIsDQogICAgICAgICAgICAgIG9wYWNpdHkgPSAwLjUsDQogICAgICAgICAgICAgIGZpbGxPcGFjaXR5ID0gMCwgDQogICAgICAgICAgICAgIGxhYmVsID0gfmhvb2RzJGxhYmVsKSAlPiUNCiAgYWRkTGVnZW5kKGRhdGEgPSBtaWQuaG9vZHMsDQogICAgICAgICAgICBwb3NpdGlvbiA9ICJib3R0b21yaWdodCIsDQogICAgICAgICAgICBwYWwgPSBwYWwsDQogICAgICAgICAgICB2YWx1ZXMgPSB+bWlkLmhvb2RzJFBlcmNlbnRfT3duZXIuMjAxNiwNCiAgICAgICAgICAgIHRpdGxlID0gIlBlcmNlbnQgT3duZXIgT2NjdXBpZWQiKQ0KDQpgYGANCg0KDQo=